home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)sdg.d64 / tiny graphics 1 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  507b  |  16 lines
  1. 90 REM TINY GRAPHICS 1
  2. 100 CM=55296:WD=40:VIC=53248
  3. 105 W=W+1:BL$="                                       [157][157][148] "
  4. 110 POKE VIC+32,0:POKE VIC+33,0:PRINT "[129]";:FOR N=1 TO 24: PRINT BL$
  5. 120 NEXT:PRINT BL$ ""
  6. 150 FOR Q=12 TO 1 STEP -1:GOSUB 200:NEXT
  7. 160 FOR Q=1 TO 12:GOSUB 200:NEXT:FOR Z=1 TO 100:NEXT Z:GOTO 150
  8. 200 UL=CM+Q+Q*WD:UR=CM+Q*WD+(39-Q):LL=CM+(25-Q)*WD+Q:LR=CM+(39-Q)+WD*(25-Q)
  9. 205 W=W+1:IF W>15 THEN W=0
  10. 210 FOR N=UL+1 TO UR:POKE N,W:NEXT
  11. 220 FOR N=UR TO LR STEP WD:POKE N,W:NEXT
  12. 230 FOR N=LR-1 TO LL STEP -1:POKE N,W:NEXT
  13. 240 FOR N=LL TO UL STEP -WD:POKE N,W:NEXT
  14. 250 GET Z$: IF Z$<>"Q" THEN RETURN
  15. 260 PRINT "[154]":END
  16.